home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 297_01 / exampl4.spr < prev    next >
Text File  |  1980-01-01  |  2KB  |  72 lines
  1. /* exampl4.spr */
  2. /* exploring input/output builtins */
  3. /* A builtin is a way of executing a procedure that has nothing
  4.   to do with logic per se. For example input/output operations
  5.   are done with builtins.
  6.   consult is probably the first builtin you have used.
  7.  */
  8.  
  9. /* try the following query 
  10.    ((writes "Hello ")(writes "World.")(nl))
  11.    then load this file and try the query (hello_world)
  12.  */
  13.  
  14. ((hello_world)
  15.  (writes "Hello ")
  16.  (writes "World.")
  17.  (nl)
  18. )
  19.  
  20. /* Inserting an output in your programs is a good way of following
  21.   the way prolog works. You can also put the interpreter in
  22.   trace_mode with a call to (trace).
  23.  */
  24.  
  25. /*************
  26.  Output examples
  27.  *************/
  28.  
  29. ((output_demo)
  30.  (writes "A string printed with writes followed by a carriage return.")
  31.  (nl)
  32.  (display "A string printed with display followed by a carriage return.")
  33.  (nl)
  34.  (put 97) /* like putchar */
  35.  (put 98)
  36.  (put 99)
  37.  (nl)
  38.  (tell "outfile.dat") /* direct output to outfile.dat */
  39.  (writes "This goes to outfile.dat")
  40.  (nl)
  41.  (tell "outfile2.dat")/* outfile.dat is still open */
  42.  (writes "This goes to outfile2.dat")
  43.  (nl)
  44.  (tell "outfile.dat")
  45.  (display (a b c))
  46.  (nl)
  47.  (told) /* outfile.dat is closed */
  48.  (writes "This goes to the screen")
  49.  (nl)
  50.  (tell "outfile2.dat")
  51.  (told) /* outfile2.dat is closed */
  52.  (display bye)
  53.  (nl)
  54. )
  55. /* now look at those files ! */
  56.  
  57. /*************
  58.  Input examples
  59.  *************/
  60. ((input_demo)
  61.  (see "example4.spr")
  62.  (read A_list)
  63.  (display A_list)
  64.  (nl)
  65.  (seen)/* closes example4.dat */
  66.  (writes "Type a character and a  return: ")
  67.  (get The_character)
  68.  (writes "You typed ")
  69.  (put The_character)
  70.  (nl)
  71. )
  72.